382 - Perfection/p382.dpr

   1 program p382;\r
   2 \r
   3 {$APPTYPE CONSOLE}\r
   4 \r
   5 uses\r
   6   SysUtils;\r
   7 \r
   8 function revisar(num : integer) : string;\r
   9 var\r
  10  mitad, i, suma : integer;\r
  11 begin\r
  12 if (num = 1) then\r
  13   result := 'DEFICIENT'\r
  14 else\r
  15   begin\r
  16   suma := 1;\r
  17   mitad := (num div 2) + 1;\r
  18   for i := 2 to mitad do\r
  19       if num mod i = 0 then\r
  20         suma := suma + i;\r
  21   if suma > num then\r
  22     result := 'ABUNDANT'\r
  23   else if suma < num then\r
  24     result := 'DEFICIENT'\r
  25   else\r
  26     result := 'PERFECT';\r
  27   end;\r
  28 end;\r
  29 \r
  30 var\r
  31   num : integer;\r
  32 \r
  33 begin\r
  34 writeLn('PERFECTION OUTPUT');\r
  35 read(num);\r
  36 while num > 0 do\r
  37   begin\r
  38   write(format('%5d', [num]));\r
  39   write('  ');\r
  40   writeLn(revisar(num));\r
  41   read(num);\r
  42   end;\r
  43 writeLn('END OF OUTPUT');\r
  44 end.\r